home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 2,801 to 2,900 / aol-file-protocol-4400-2801-to-2900.zip / AOLDLs / Work Library - Marty / AppleWorks 4.0.1 --_ 4.0.2 up / Make402.35 / Make4.02 / CSEGDC.bas < prev    next >
BASIC Source File  |  1994-02-17  |  960b  |  19 lines
  1. 5  ONERR  GOTO 2000
  2. 20  PRINT D$ =  CHR$(4)
  3. 25  PRINT : PRINT "Copying new Seg.dc"
  4. 30  PRINT D$;"-copy"
  5. 40 S$ = OP$ +"th.ptch/seg.dc"
  6. 50 DE$ = PA$ +"/seg.dc"
  7. 56  PRINT D$;"delete /ram/seg.dc"
  8. 60  PRINT D$;"copy";S$;",/ram/seg.dc"
  9. 63  PRINT D$;"delete";DE$
  10. 65  PRINT D$;"copy /ram/seg.dc,";DE$
  11. 70  PRINT D$;"chain make402,@2600"
  12. 2000 ER =  PEEK(222):EL =  PEEK(218) +256 * PEEK(219)
  13. 2130  IF EL = 65  THEN  PRINT : PRINT "Insert your AppleWorks startup disk and press Return ";: GET X$: PRINT : GOTO 65
  14. 2140  IF EL = 60  THEN  PRINT : PRINT "Insert your Make402 disk and press Return ";: GET X$: PRINT : GOTO 60
  15. 2150  IF EL = 70  THEN  PRINT : PRINT "Insert your Make402 disk and press Return ";: GET X$: PRINT : GOTO 70
  16. 2155  IF ER = 6  AND EL = 63  THEN  PRINT : PRINT "Instert your AppleWorks disk and press return ";: GET X$: PRINT : GOTO 63
  17. 2160  IF EL = 63  THEN  CALL  -3288: GOTO 63
  18. 2170  IF EL = 56  THEN  CALL  -3288: GOTO 60
  19. 2190  POKE 216,0: RESUME